home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh42.d64 / anl. smon (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  290b  |  17 lines
  1. 10 PRINT CHR$(147)CHR$(14)CHR$(5)
  2. 20 PRINT"[193]NLEITUNG FUER [211]MON"
  3. 30 PRINT
  4. 40 PRINT"[193]USGABE AUF [196]RUCKER ODER [194]ILDSCHIRM ?"
  5. 50 PRINT
  6. 60 INPUT"[194]ITTE <D> ODER <B> EINGEBEN";A$
  7. 70 GA=3
  8. 80 IF A$="D" OR A$="[196]" THEN GA=4
  9. 90 OPEN1,8,2,"SMON,S,R"
  10. 100 OPEN2,GA,7
  11. 110 GET#1,A$
  12. 120 IF ST <> 0 THEN GOTO 150
  13. 130 PRINT#2,A$;
  14. 140 GOTO 110
  15. 150 CLOSE 2
  16. 160 CLOSE 1
  17.